-- background: 2745 from stack: in. II Details
-- bmap block id: 3297
-- flags: 4000
-- background id: 0
-- name: DetBkgnd
----- HyperTalk script -----
xyzzy


-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=3 top=70 right=137 bottom=139
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Item1name


-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=3 top=191 right=259 bottom=139
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Item2name


-- part 5 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=142 top=70 right=298 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OneItem


-- part 6 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=142 top=70 right=186 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: TwoItem Top


-- part 7 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=142 top=191 right=307 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bottom


-- part 10 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=304 top=315 right=337 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return to Bibliography Stack
----- HyperTalk script -----
-- v. 1.1
-- LAST UPDATE: 3/19/89

on mouseUp
  if visible of bg btn id 15 is false then
    get the script of fld "Entry Name"
    visual iris close
    go stack it
  else
    visual iris close
    pop cd
  end if
end mouseUp


-- part 12 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=6 top=315 right=337 bottom=135
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Write to Text
----- HyperTalk script -----
-- v. 1.1
-- LAST UPDATE: 3/19/89

on mouseUp
  set cursor to 4
  get word 1 of fld id 13
  if last char of it = "," then delete last char of it
  put it into filout
  repeat with i = 2 to ((the number of words in fld id 13) - 5)
    put word i of fld id 13 into testwd
    if char 1 of testwd = "1" or char 1 of testwd = "2" then
      if the number of chars in testwd = 5 then
        delete last char of testwd
        put space & testwd after filout
        exit repeat
      end if
    end if
  end repeat
  put " text" after filout
  put "put IOQuery(" & item 1 of the topLeft of cd window & "," & item 2 of the topLeft of cd window & "," & quote & "o" & quote & "," & quote & filout & quote & ") into filout" into doit
  do doit
  if filout = "Error" or filout = "cancel" then
    if filout = "Error" then
      beep
      answer "Encountered error in creating file"
    end if
    exit mouseUp
  end if
  set cursor to 4
  put "Writing to file..."
  open file filout
  write "REFERENCE:" & return & fld id 13 & return & return & fld id 2 & return to file filout
  if visible of fld id 5 is true then
    write fld id 5 to file filout
  else
    write fld id 6 & return & return & fld id 4 & return & fld id 7 to file filout
  end if
  close file filout
  hide message
end mouseUp



-- part 13 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=142 top=22 right=65 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Entry Name


-- part 14 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=152 top=315 right=337 bottom=287
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Read from Text
----- HyperTalk script -----
-- v. 1.1
-- LAST UPDATE: 3/19/89

on mouseUp
  if visible of fld id 5 is false then
    put fld id 4 & return & fld id 2 into fldnames
    answer "Put text into which field?" with "Cancel" or line 1 of fldnames or line 2 of fldnames
    if it = "Cancel" then exit mouseUp
    if it = line 2 of fldnames then
      put 6 into destfld
    else
      put 7 into destfld
    end if
  else
    put 5 into destfld
  end if
  put "put IOQuery(" & item 1 of the topLeft of cd window & "," & item 2 of the topLeft of cd window & "," & quote & "i" & quote &") into filin" into doit
  do doit
  if filin = "Error" or filin = "cancel" then
    if filin = "Error" then
      beep
      answer "Encountered error in locating/reading file"
    end if
    exit mouseUp
  end if
  set cursor to 4
  open file filin
  put "Reading from file..."
  put 0 into lnct
  repeat until lnct > 15
    read from file filin until return
    if it is empty then
      add 1 to lnct
    else
      put 0 into lnct
      put it after fld id destfld
    end if
  end repeat
  close file filin
  hide message
end mouseUp



-- part 15 (button)
-- low flags: 80
-- high flags: 2002
-- rect: left=84 top=271 right=307 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 19099 / 19099
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Card
----- HyperTalk script -----
-- v. 1.1
-- LAST UPDATE: 3/19/89

on mouseUp
  answer "Delete this Details entry?" with "Delete" or "Cancel"
  if it = "Cancel" then
    exit mouseUp
  else
    put the userlevel into ulev
    set the userlevel to 5
    set cursor to 4
    put "Removing link to Bibliography File..."
    set lockScreen to true
    put the id of this cd & " of " & the name of this stack into retcid
    click at loc of bg btn id 10
    choose btn tool
    click at loc of btn "Show"
    doMenu Clear Button
    choose browse tool
    set the script of this cd to empty
    push cd
    go retcid
    put "Deleting details entry..."
    if the number of cards of bg DetBkgnd < 2 then
      repeat with i = 3 to 6
        put empty into fld i
      end repeat
    else
      doMenu Delete Card
    end if
    pop cd
    set lockScreen to false
    set userlevel to ulev
    hide message
    beep
    answer "Details for this entry deleted" with "OK"
    set userlevel to ulev
  end if
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=0 top=0 right=17 bottom=24
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
-- v. 1.1
-- LAST UPDATE: 3/20/89

on mouseUp
  hide bg btn id 15
  go prev cd
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=488 top=0 right=17 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
-- v. 1.1
-- LAST UPDATE: 3/20/89

on mouseUp
  hide bg btn id 15
  go next cd
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 2002
-- rect: left=2 top=271 right=307 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Card
----- HyperTalk script -----
-- v. 1.2
-- LAST UPDATE: 6/16/90

on mouseUp
  go home
  show MenuBar
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=43 top=271 right=307 bottom=81
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
-- v. 1.2
-- LAST UPDATE: 6/16/90

on mouseUp
  doMenu Quit HyperCard
end mouseUp